﻿Namespace Objetos

    Public Class PessoaJuridica

#Region "Variáveis"

        Private objPessoa As Objetos.Pessoa

#End Region

#Region "Propriedades"

        Public Property CodigoPessoa As Integer
        Public Property RazaoSocial As String
        Public Property NomeFantasia As String
        Public Property RamoAtividade As String

        Public ReadOnly Property Pessoa As Objetos.Pessoa
            Get
                If objPessoa Is Nothing Then
                    Dim objPessoas As New Negocios.Pessoa
                    objPessoa = objPessoas.EncontrarPorCodigo(Me.CodigoPessoa)
                End If
                Return objPessoa
            End Get
        End Property

#End Region

    End Class

End Namespace

